home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / bytebnch.arc / BENCH2.BAS < prev    next >
BASIC Source File  |  1984-07-10  |  256b  |  8 lines
  1. 300 NR=512
  2. 320 OPEN "B:TEST" FOR INPUT AS #1
  3. 340 FOR I=1 TO NR
  4. 360 B$=INPUT$(128,1)
  5. 380 NEXT I
  6. 400 CLOSE
  7. 420 PRINT "DONE": BEEP
  8.